﻿Imports CrystalDecisions.Shared

Public Class frmVisorBusRangoID
    Dim idDVID As New ParameterDiscreteValue
    Dim idDV2ID As New ParameterDiscreteValue
    Public vidPagoID As Integer
    Public vidPagoID2 As Integer
    Private Sub frmVisorBusRangoID_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim rptbus As New rptBusPagoGRangoID
        idDVID.Value = vidPagoID
        idDV2ID.Value = vidPagoID2
        rptbus.DataSourceConnections(0).SetConnection("Driver={MySQL ODBC 5.2a Driver};Server=localhost;Port=3306;", "bdCoprevi", "root", "123456")
        'CTM QUE ME COSTÓ ENCONTRAR EL STRING DE CONEXION
        rptbus.SetParameterValue(0, idDVID)
        rptbus.SetParameterValue(1, idDV2ID)

        crvBusqueda.ReportSource = rptbus

    End Sub
End Class